home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Common Dialog PlacesBar2.ttp < prev    next >
INI File  |  2005-03-15  |  4KB  |  120 lines
  1. [SETTINGS]
  2. Category=Windows Tweaks::System::Common Dialog::Places bar
  3. Caption=Open/Save Dialog Places Bar
  4. VERSION=1.0
  5. OSVERSION=2000,ME,XP,2003
  6.  
  7. [INTERFACE]
  8. TYPE=multi
  9. Text0=Folder 1
  10. type0=combo
  11. style0=2
  12. Text1=Folder 2
  13. style1=2
  14. type1=combo
  15. Text2=Folder 3
  16. style2=2
  17. type2=combo
  18. Text3=Folder 4
  19. style3=2
  20. type3=combo
  21. Text4=Folder 5
  22. style4=2
  23. type4=combo
  24.  
  25. #=The common dialog boxes, such as the Open dialog box (of say, Notepad), display the places bar on the left side. These are shortcuts to common folders, which make getting around much easier. By default, you see the History, Documents, Desktop, Favorites, and My Network Places folders there. 
  26. #=\n\nTo add your folders to the 'Places Bar', browse the path for each item, or select a common folder from the drop down list.
  27. #=\nTo restore the defaults, clear all fields.
  28. #=\nNote: Make sure you have the 'Show PlacesBar' option set in the plug-in 'Open/Save Dialog Box'. If PlacesBar is set to be hidden, the page will be disabled.
  29. Author=
  30.  
  31.  
  32. [EXPORT]
  33. key0=HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32
  34.  
  35. [SCRIPT]
  36. dim str(4),strPath,arrFolders, arrID
  37. str(0)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place0"
  38. str(1)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place1"
  39. str(2)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place2"
  40. str(3)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place3"
  41. str(4)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\Place4"
  42. strPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar\"
  43.  
  44. arrFolders = Array("Desktop", "Network Neighborhood","Favorites","History","My Documents","My Pictures","My Music","Recent Documents","My Computer" ,"My Video", "Shared Documents","Shared Music","Shared Video")
  45. arrID     = Array(&H00, &H12 ,&H06, &H22 ,&H05,&H27 ,&H0D,&H08,&H11,&HE,&h2E,&h35,&h37 )
  46.  
  47.  
  48. Sub OnInit() 
  49. dim s,i,j,bFoundAMatch
  50.  
  51. for i= 0 to 4
  52.   for j = 0 to Ubound(arrFolders)
  53.     SetItemTextEx i, j, arrFolders(j)
  54.   next
  55. next
  56.  
  57. 'now select the folders already set in registry
  58.  
  59. if RegKeyExists(strPath) = false then 'default places
  60. 'nothing to do, don't select any item in the combo
  61. else
  62.   for i = 0 to 4 
  63.     s = RegReadValue(str(i))
  64.     bFoundAMatch = false
  65.     If IsNumeric(s) And (Not IsEmpty(s)) then
  66.     for j = 0 to Ubound(arrID) ' see if this is any predefined folders
  67.        if arrID(j) = CInt(s) then
  68.          SetItemText i , arrFolders(j)
  69.          bFoundAMatch = true
  70.        end if
  71.  
  72.     next
  73.     end if
  74.    ' no, it is not a predefined folder. 
  75.    if bFoundAMatch = false then SetItemText i , s
  76.   next
  77. end if
  78.  
  79.  
  80. if 1 = Regreadvalue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\NoPlacesBar") then
  81. DisableWindow
  82. end if
  83.  
  84. End Sub
  85.  
  86. Sub OnApply(x,y)
  87. Dim handle,i,j,s,bFoundAMatch
  88.  
  89. for i = 0 to 4
  90.   s = GetItemText(i)
  91.   if len(s) <> 0 then
  92.  'see if this is a predefined folder
  93.   bFoundAMatch = false
  94.   for j =0 to Ubound(arrFolders)
  95.      if strcomp(arrFolders(j), s,vbTextcompare) = 0 then
  96.         RegWriteValueD str(i), arrID(j)
  97.        bFoundAMatch = true
  98.      end if
  99.   next
  100.  
  101.   if bFoundAMatch = false then RegWriteValueS str(i), s 'did not find the id. user might have selected a custom folder
  102.  
  103.   else
  104.       RegDeleteVal str(i)
  105.   end if
  106.  
  107. next
  108.         
  109. 'if all the values are cleared, it means default.
  110. 'to set default, delete the key 'placesbar'
  111. handle = RegOpenKey(strPath)
  112. if -1 <> handle then
  113.   i = RegValCount(handle)
  114.   RegCloseKey handle
  115. end if
  116. if i=0 then RegDeleteKey strPath
  117.  
  118. End Sub
  119.  
  120.